home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl760 / rrtr10.lzh / MASTCALL.PRG < prev    next >
Text File  |  1993-09-01  |  2KB  |  46 lines
  1. SET BELL off
  2. SET CONFIRM on
  3. SET DECIMALS TO 2
  4. SET ECHO OFF
  5. SET ESCAPE ON
  6. SET HEADING OFF
  7. SET MARGIN TO 0
  8. SET MENU OFF
  9. SET PRINT OFF
  10. SET SAFETY OFF
  11. SET SCOREBOARD OFF
  12. SET STATUS OFF
  13. SET STEP OFF
  14. SET TALK OFF
  15. SET DEVICE TO SCREEN
  16. IF ISCOLOR()
  17. SET COLOR TO GR+/B,W+/RB,
  18. ENDIF (ISCOLOR())
  19. CLEAR
  20. DECLARE mScrnForm[21]
  21. mScrnForm[1] = "                        **            ROYAL RANGERS"
  22. mScrnForm[2] = "                       **** ASSEMBLIES OF GOD MINISTRY FOR BOYS"
  23. mScrnForm[3] = "              -       ******      -"
  24. mScrnForm[4] = "             ---     ********    ---"
  25. mScrnForm[5] = "     *      -----   **********  -----     *"
  26. mScrnForm[6] = "      **** --------************------- ****"
  27. mScrnForm[7] = "       *****------**************------*****"
  28. mScrnForm[8] = " ------********--****************--*******------"
  29. mScrnForm[9] = "  -------********************************------"
  30. mScrnForm[10] = "   -------**** Robert Barrentine *******------"
  31. mScrnForm[11] = "    ------****      Presents     ********----"
  32. mScrnForm[12] = "     --************************************-"
  33. mScrnForm[13] = "   ******    RANGER TRACKER V. 1.0    ********"
  34. mScrnForm[14] = "********* An Automated Records System ************"
  35. mScrnForm[15] = "   ******  for Royal Ranger Outposts  ********"
  36. mScrnForm[16] = "     -**************************************-"
  37. mScrnForm[17] = "    -----*********************************----"
  38. mScrnForm[18] = "   -------*******************************------"
  39. mScrnForm[19] = "  -------*********************************------"
  40. mScrnForm[20] = " -------********-*****************-********------"
  41. mScrnForm[21] = "                Copyright @ 1993"
  42. SET PROCEDURE TO MASTMENU
  43. DO WHILE .T.
  44. DO MASTMENU
  45. ENDDO (.T.)
  46.